Beep

Dim J
For J = 1 To 2
   Beep
Next J
